home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / comm / net / tf02.lha / TinyFugue / tf-lib / spc-page.tf < prev    next >
Text File  |  1995-08-12  |  579b  |  21 lines
  1. ;;;; space-page
  2. ;; This set of commands allows the use of the SPACE key to scroll at a
  3. ;; --More-- prompt, like tf versions prior to 2.0.  The TAB key also works.
  4. ;; I personally don't like it, but you might if you can't get the hang of
  5. ;; pressing TAB.  To enable space-page, just load this file.
  6.  
  7. /~loaded space_page.tf
  8.  
  9. /def -i pager = \
  10.     /purge -ib" "%; \
  11.     /dokey page
  12.  
  13. /def -i -arh -hMORE = \
  14.     /def -i -b" " = /pager
  15.  
  16. ; This part is so TAB still works.
  17. /if /ismacro -mglob -ib"^I" = /dokey page%; /then \
  18.     /purge -ib"^I"%;\
  19.     /def -i -b"^I" = /pager%;\
  20. /endif
  21.